home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2003 #3 / K-CD-3-2003.ISO / WinXP Service Pack 1 / xpsp1_sv_x86.exe / pscript5.dll / 259 / 1 next >
Encoding:
Text File  |  2002-09-09  |  2.5 KB  |  35 lines
  1. %%BeginResource: file Pscript_WinNT_ErrorHandler 5.0 0
  2. /currentpacking where{pop/oldpack currentpacking def/setpacking where{pop false
  3. setpacking}if}if/$brkpage 64 dict def $brkpage begin/prnt{dup type/stringtype
  4. ne{=string cvs}if dup length 6 mul/tx exch def/ty 10 def currentpoint/toy exch
  5. def/tox exch def 1 setgray newpath tox toy 2 sub moveto 0 ty rlineto tx 0
  6. rlineto 0 ty neg rlineto closepath fill tox toy moveto 0 setgray show}bind def
  7. /nl{currentpoint exch pop lmargin exch moveto 0 -10 rmoveto}def/=={/cp 0 def
  8. typeprint nl}def/typeprint{dup type exec}readonly def/lmargin 72 def/rmargin 72
  9. def/tprint{dup length cp add rmargin gt{nl/cp 0 def}if dup length cp add/cp
  10. exch def prnt}readonly def/cvsprint{=string cvs tprint( )tprint}readonly def
  11. /integertype{cvsprint}readonly def/realtype{cvsprint}readonly def/booleantype
  12. {cvsprint}readonly def/operatortype{(--)tprint =string cvs tprint(-- )tprint}
  13. readonly def/marktype{pop(-mark- )tprint}readonly def/dicttype{pop
  14. (-dictionary- )tprint}readonly def/nulltype{pop(-null- )tprint}readonly def
  15. /filetype{pop(-filestream- )tprint}readonly def/savetype{pop(-savelevel- )
  16. tprint}readonly def/fonttype{pop(-fontid- )tprint}readonly def/nametype{dup
  17. xcheck not{(/)tprint}if cvsprint}readonly def/stringtype{dup rcheck{(\()tprint
  18. tprint(\))tprint}{pop(-string- )tprint}ifelse}readonly def/arraytype{dup rcheck
  19. {dup xcheck{({)tprint{typeprint}forall(})tprint}{([)tprint{typeprint}forall(])
  20. tprint}ifelse}{pop(-array- )tprint}ifelse}readonly def/packedarraytype{dup
  21. rcheck{dup xcheck{({)tprint{typeprint}forall(})tprint}{([)tprint{typeprint}
  22. forall(])tprint}ifelse}{pop(-packedarray- )tprint}ifelse}readonly def/courier
  23. /Courier findfont 10 scalefont def end errordict/handleerror{systemdict begin
  24. $error begin $brkpage begin newerror{/newerror false store vmstatus pop pop 0
  25. ne{grestoreall}if errorname(VMerror)ne{showpage}if initgraphics courier setfont
  26. lmargin 720 moveto errorname(VMerror)eq{userdict/ehsave known{clear userdict
  27. /ehsave get restore 2 vmreclaim}if vmstatus exch pop exch pop PrtVMMsg}{
  28. (ERROR: )prnt errorname prnt nl(OFFENDING COMMAND: )prnt/command load prnt
  29. $error/ostack known{nl nl(STACK:)prnt nl nl $error/ostack get aload length{==}
  30. repeat}if}ifelse systemdict/showpage get exec(%%[ Error: )print errorname
  31. =print(; OffendingCommand: )print/command load =print( ]%%)= flush}if end end
  32. end}dup 0 systemdict put dup 4 $brkpage put bind readonly put/currentpacking
  33. where{pop/setpacking where{pop oldpack setpacking}if}if
  34. %%EndResource
  35.